home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / EuraTools.lha / EuraTools / ARexx / AlarmJoke.ecfg next >
Encoding:
Text File  |  1997-05-16  |  1.2 KB  |  39 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      AlarmJoke.ecfg                  EuraConfig-Script       **
  4. **      Kleiner Gag auf der Alarm-Seite                         **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION CHECK=2'               /* Richtige Kommando-Version? */
  19.  
  20. 'PAGE'; oldpg = RESULT          /* Alte Seite merken */
  21. 'PAGE 4'                        /* Auf die "Alarm"-Seite wechseln */
  22.  
  23. DO i = 1 TO 1439 BY 2           /* Startzeit hochzählen */
  24.   'ALARM FIELD=0 N="'||i||'"'
  25.   'ALARM FIELD=1 N="'||1439-i||'"'
  26. END
  27.  
  28. DO i = 1438 TO 0 BY -2          /* Startzeit herunterzählen */
  29.   'ALARM FIELD=0 N="'||i||'"'
  30.   'ALARM FIELD=1 N="'||1439-i||'"'
  31. END
  32.  
  33. 'PAGE' oldpg                    /* Auf alte Seite setzen */
  34.  
  35. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  36.  
  37. EXIT
  38.  
  39.